home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_109_Interface < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.3 KB  |  48 lines
  1. { %filename% -- interface file for %AppName% }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. {    This module overrides the AppMaker-generated code in z%Appname%Intf.%    %}
  5. {    It provides a place for you to add your own code and still be able to    }
  6. {    generate code for new changes to the user interface.  This module will    }
  7. {    not be regenerated by AppMaker unless you delete it.  Its superclass,    }
  8. {    z%Appname%Intf, may be regenerated to handle user interface changes%    %}
  9. {    without losing your hand-coded changes to this module.                    }
  10.  
  11. Unit %AppName%Intf;
  12. Interface
  13.  
  14. Uses
  15.     TCL,
  16.     AMCL,
  17.     z%AppName%Intf,
  18.     %AppName%Data;
  19.     
  20. %for each dialog gen interface%
  21. %for each window gen interface%
  22. type
  23.     C%Appname%Doc    = object (Z%Appname%Doc) 
  24.         {your application-specific instance variables:}
  25.  
  26.         Procedure I%Appname%Doc%    %(aSupervisor:    CApplication;
  27.                                      printable:        Boolean);    override;
  28.         Procedure UpdateMenus;                                    override;
  29.         Procedure DoCommand            (theCommand:    longint);    override;
  30.  
  31.     end; {C%Appname%Doc}
  32.  
  33. type
  34.     C%Appname%App    = object (Z%Appname%App)
  35.         {your application-specific instance variables:}
  36.  
  37.         Procedure I%Appname%App;    override;
  38.         Procedure SetUpFileParameters;    override;
  39.         Procedure UpdateMenus;    override;
  40.         Procedure DoCommand        (theCommand:    longint);    override;
  41.     
  42.     end; {C%Appname%App}
  43.  
  44. {----------}
  45. Implementation
  46.  
  47. End. {%AppName%Intf}
  48.